home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / games1 / nfa-hdin.lha / NFA-HDInstallers / SWOS96 / SWOS Install < prev    next >
Text File  |  1995-11-24  |  3KB  |  122 lines
  1. ; $VER: SWOS HD Install-Script by Roland for Sentinel & Piotr Bieniek
  2.  
  3. (set GameDir "SWOS")
  4. (set TotalDisks 2)
  5. (set CurrentDisk 0)
  6. (set Percent 20)
  7. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  8.  
  9. ;try to figure out a place where the user usually installs his games
  10. (if (exists "Games:" (noreq) )
  11.     (set @default-dest "Games:")
  12.     (if (exists "SYS:Games" (noreq) )
  13.         (set @default-dest "SYS:Games")
  14.         (if (exists "Work:Games" (noreq) )
  15.             (set @default-dest "Work:Games")
  16.             (set @default-dest "SYS:")
  17.         )
  18.     )
  19. )
  20.  
  21. ;ask the user to select a directory to install the game into
  22. (set default-dest
  23.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  24.                              "A drawer called " GameDir " will be created.")
  25.                      (help @askdir-help)
  26.                      (default @default-dest)
  27.                      (newpath)
  28.              )
  29.      GameDir
  30.      )
  31. )
  32. (set @default-dest default-dest)
  33. (complete 5)
  34.  
  35. ;create the selected directory and a subdirectory called Data
  36. (makedir @default-dest
  37.          (infos)
  38. )
  39. (makedir (tackon @default-dest "data")
  40. )
  41. (makedir (tackon @default-dest "grafs")
  42. )
  43. (makedir (tackon @default-dest "sound")
  44. )
  45. (complete 10)
  46.  
  47. ;copy all extra files to this directory
  48. (set gamever
  49.      (askchoice (prompt "Which version of SWOS do you wish to install?")
  50.                 (help @askchoice-help)
  51.                 (choices "SWOS 1.0" "SWOS 1.1" "SWOS 95/96")
  52.      )
  53. )
  54.  
  55. (if (= gamever 0) (set ssbootfile "ssboot10.hd"))
  56. (if (= gamever 1) (set ssbootfile "ssboot11.hd"))
  57. (if (= gamever 2) (set ssbootfile "ssboot96.hd"))
  58.  
  59.       (copyfiles (source ssbootfile)
  60.                  (dest @default-dest)
  61.                  (newname "ssboot")
  62.       )
  63.       (copyfiles (source "Sensible World of Soccer")
  64.                  (dest @default-dest)
  65.       )
  66.       (copyfiles (source "Sensible World of Soccer.icon")
  67.                  (dest @default-dest)
  68.                  (newname "Sensible World of Soccer.info")
  69.       )
  70.  
  71. (complete 20)
  72.  
  73. (askdisk (prompt "Please insert SWOS disk 1 in any drive.")
  74.          (help @askdisk-help)
  75.          (dest "SWOS")
  76. ;         (assigns)
  77. )
  78.  
  79. (copyfiles (source "SWOS:swos")
  80.            (dest @default-dest)
  81. )
  82. (copyfiles (source "SWOS:swos.rel")
  83.            (dest @default-dest)
  84. )
  85. (copyfiles (source "SWOS:swos2")
  86.            (dest @default-dest)
  87. )
  88. (copyfiles (source "SWOS:swos2.rel")
  89.            (dest @default-dest)
  90. )
  91. (copyfiles (source "SWOS:grafs")
  92.            (dest (tackon @default-dest "grafs"))
  93.            (all)
  94. )
  95. (copyfiles (source "SWOS:sound")
  96.            (dest (tackon @default-dest "sound"))
  97.            (all)
  98. )
  99.  
  100. (complete 60)
  101.  
  102. (askdisk (prompt "Please insert SWOS disk 2 in any drive.")
  103.          (help @askdisk-help)
  104.          (dest "SWOS2")
  105. ;         (assigns)
  106. )
  107.  
  108. (copyfiles (source "SWOS2:data")
  109.            (dest (tackon @default-dest "data"))
  110.            (all)
  111. )
  112. (copyfiles (source "SWOS2:grafs")
  113.            (dest (tackon @default-dest "grafs"))
  114.            (all)
  115. )
  116. (copyfiles (source "SWOS2:sound")
  117.            (dest (tackon @default-dest "sound"))
  118.            (all)
  119. )
  120.  
  121. (complete 100)
  122.